1 REM - PZ.BOOT
2 REM - DANIEL MILLER
3 REM - 2815 34 STREET
4 REM - ASTORIA, QUEENS
5 REM - NEW YORK, NEW YORK   11103
6 REM - APRIL 25, 1983
7 REM *********************************
1000 QO$=CHR$(34):DW$=CHR$(17):FOR X=1 TO 24:DO$=DO$+DW$:NEXT X
1010 BLK$=CHR$(144):UC$=CHR$(142):LC$=CHR$(14)
1020 RV$=CHR$(18):RO$=CHR$(146):CL$=CHR$(147):HM$=CHR$(19)
1030 POKE 53281,7
1100 PRINT CL$;UC$;LEFT$(DO$,2);TAB(12);RV$+BLK$+"PUZZLE MENU"+RO$:PRINT
1110 PRINTTAB(10)"1. PEG SOLITAIRE":PRINTTAB(10)"2. CHECKERS SWITCH"
1120 PRINTTAB(10)"3. 'E' PUZZLE":PRINTTAB(10)"4. THIRTEEN PEGS"
1130 PRINTTAB(10)"5. TOWERS OF BRAHMA":PRINT
1140 PRINTTAB(15)"ENTER CHOICE ";:INPUT CH$
1150 IF CH$<"1" OR CH$>"5" THEN CH$="":GOTO1140
1160 ON VAL(CH$) GOTO 1170,1180,1190,1200,1210
1170 PZ$="PEGSOL.D":GOTO1220
1180 PZ$="SWITCH.D":GOTO1240
1190 PZ$="E PUZZLE.D":GOTO1260
1200 PZ$="THIRTEEN PEGS.D":GOTO1280
1210 PZ$="TOWERS.D":GOTO1300
1220 PRINT CL$;LEFT$(DO$,2);LC$;TAB(14);RV$+BLK$+"[208]EG [211]OLITAIRE"+RO$:PRINT
1222 PRINT"   [195]HOOSE FROM 14 CHALLENGING PUZZLES.":PRINT
1224 PRINT" [205]ULTIPLE JUMPS ARE ALLOWED.  [208]RESS ANY":PRINT
1226 PRINT" [198]UNCTION [203]EY ([198]1,[198]3,[198]5,[198]7) AFTER EACH":PRINT
1228 PRINT" MOVE, INCLUDING ALL JUMPS, TO UPDATE":PRINT
1230 PRINT" THE [205]OVE COUNTER.":PRINT:GOTO1380
1240 PRINT CL$;LEFT$(DO$,2);LC$;TAB(14);RV$+BLK$+"[195]HECKERS [211]WITCH"+RO$:PRINT
1242 PRINT"   [210]EVERSE THE POSITIONS OF THE CHECKERS":PRINT
1244 PRINT" FROM [204]EFT TO [210]IGHT IN THE FEWEST MOVES.":PRINT:GOTO1380
1260 PRINTCL$;LEFT$(DO$,2);TAB(15);LC$;RV$+BLK$+"'[197]' [208]UZZLE"+RO$:PRINT
1262 PRINT"   [210]EVERSE THE POSITIONS OF THE PEGS":PRINT
1264 PRINT" FROM [212]OP TO [194]OTTOM IN THE LEAST NUMBER":PRINT
1266 PRINT" OF MOVES.":PRINT:GOTO1380
1280 PRINT CL$;LEFT$(DO$,2);TAB(14);LC$;RV$+BLK$+"[212]HIRTEEN [208]EGS"+RO$:PRINT
1282 PRINT"   [194]Y MOVES AND JUMPS, ELIMINATE THE":PRINT
1284 PRINT" [215]HITE PEGS FROM THE PLAYING SCREEN.":PRINT:GOTO1380
1300 PRINT CL$;LEFT$(DO$,2);TAB(12);LC$;RV$+BLK$+"[212]OWERS OF [194]RAHMA"+RO$:PRINT
1302 PRINT"   [205]OVE THE [210]INGS FROM [212]OWER #1 TO A":PRINT
1304 PRINT" DIFFERENT [212]OWER IN THE DESIGNATED":PRINT
1306 PRINT" NUMBER OF MOVES.  [217]OU MAY WORK WITH 2":PRINT
1308 PRINT" TO 8 [210]INGS.":PRINT
1310 PRINT"   [197]NTER '[216]' AS '[198][210][207][205][160][212][207][215][197][210][160]#' TO END.":PRINT
1312 PRINT" [201]F YOU ENTER '[217]' TO [195][207][205][208][213][212][197][210][160][211][207][204][213][212][201][207][206]":PRINT
1314 PRINT" THE PUZZLE WILL RESET AND SOLVE ITSELF.":GOTO1390
1380 PRINT"   [205]OVES ARE MADE USING  [210]OW AND [195]OLUMN":PRINT
1382 PRINT" NUMBER:":PRINT
1384 PRINT"        [198][210][207][205][160]?[160]14       [212][207] ? 24":PRINT
1386 PRINT" [198]ROM [210]OW-1 [195]OLUMN 4 [212]O [210]OW-2 [195]OLUMN 4.":PRINT
1388 PRINT" [197]NTER '99' AS [198][210][207][205] ? TO END."
1390 PRINT HM$;LEFT$(DO$,24);TAB(9);RV$+BLK$+"[208]RESS <[210][197][212][213][210][206]> TO [194]EGIN"+RO$;
1392 GET RT$:IF RT$="" THEN1392
1394 IF RT$<>CHR$(13) THEN RT$="":GOTO1392
1400 PRINT CL$;UC$;LEFT$(DO$,3)"LOAD";QO$;PZ$;QO$;",8"
1410 PRINT LEFT$(DO$,4);"RUN"+HM$
1420 FOR X=1 TO 4:POKE630+X,13:POKE198,4:POKE 53281,12:NEW